home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 46 / PC Gamer IT CD 46 2-2.iso / utility / notepads / _SETUP.1 / Notepads.exe / 0 / RCDATA / TFRMAEMAIL / TFRMAEMAIL.txt < prev   
Encoding:
Text File  |  1999-09-08  |  4.1 KB  |  181 lines
  1. object frmAEmail: TfrmAEmail
  2.   Left = 35
  3.   Top = 206
  4.   Width = 219
  5.   Height = 300
  6.   BorderIcons = [biSystemMenu, biHelp]
  7.   Caption = 'Email Addresses'
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   Menu = mnuMain
  16.   OldCreateOrder = True
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object lstAddress: TListBox
  22.     Left = 0
  23.     Top = 29
  24.     Width = 211
  25.     Height = 221
  26.     HelpContext = 1101
  27.     Align = alClient
  28.     ItemHeight = 13
  29.     TabOrder = 0
  30.     OnClick = appEventsActiveFormChange
  31.     OnDblClick = EmailAddress
  32.   end
  33.   object barAddress: TSpeedBar
  34.     Left = 0
  35.     Top = 0
  36.     Width = 211
  37.     Height = 29
  38.     Font.Charset = DEFAULT_CHARSET
  39.     Font.Color = clWindowText
  40.     Font.Height = -12
  41.     Font.Name = 'Comic Sans MS'
  42.     Font.Style = []
  43.     Options = [sbFlatBtns]
  44.     BtnOffsetHorz = 3
  45.     BtnOffsetVert = 3
  46.     BtnWidth = 24
  47.     BtnHeight = 23
  48.     Images = frmMain.lstImages
  49.     BevelOuter = bvNone
  50.     PopupMenu = pumToolBar
  51.     TabOrder = 1
  52.     InternalVer = 1
  53.     object secFile: TSpeedbarSection
  54.       Caption = 'File'
  55.     end
  56.     object btnUse: TSpeedItem
  57.       Caption = 'Use Address'
  58.       Enabled = False
  59.       Hint = 'Use address in email'
  60.       ImageIndex = 3
  61.       Spacing = 1
  62.       Left = 3
  63.       Top = 3
  64.       Visible = True
  65.       OnClick = EmailAddress
  66.       SectionName = 'File'
  67.     end
  68.     object btnDelete: TSpeedItem
  69.       Caption = 'Delete Address'
  70.       Enabled = False
  71.       Hint = 'Delete highlighted address'
  72.       ImageIndex = 2
  73.       Spacing = 1
  74.       Left = 35
  75.       Top = 3
  76.       Visible = True
  77.       OnClick = DeleteAddress
  78.       SectionName = 'File'
  79.     end
  80.     object btnClose: TSpeedItem
  81.       Caption = 'Close'
  82.       Hint = 'Close email addresses'
  83.       ImageIndex = 50
  84.       Spacing = 1
  85.       Left = 67
  86.       Top = 3
  87.       Visible = True
  88.       OnClick = EmailAddress
  89.       SectionName = 'File'
  90.     end
  91.   end
  92.   object mnuMain: TMainMenu
  93.     Images = frmMain.lstImages
  94.     Left = 52
  95.     Top = 164
  96.     object mniAddresses: TMenuItem
  97.       Caption = '&Addresses'
  98.       object mniUse: TMenuItem
  99.         Caption = '&Use'
  100.         Enabled = False
  101.         GroupIndex = 2
  102.         Hint = 'Use email address'
  103.         ImageIndex = 3
  104.         OnClick = EmailAddress
  105.       end
  106.       object mniBar1: TMenuItem
  107.         Caption = '-'
  108.         GroupIndex = 2
  109.       end
  110.       object mniDelete: TMenuItem
  111.         Caption = '&Delete'
  112.         Enabled = False
  113.         GroupIndex = 2
  114.         Hint = 'Delete highlighted address'
  115.         ImageIndex = 2
  116.         OnClick = DeleteAddress
  117.       end
  118.       object mniBar3: TMenuItem
  119.         Caption = '-'
  120.         GroupIndex = 2
  121.       end
  122.       object mniCancel: TMenuItem
  123.         Caption = '&Close'
  124.         GroupIndex = 2
  125.         Hint = 'Close email addresses'
  126.         ImageIndex = 50
  127.         OnClick = EmailAddress
  128.       end
  129.     end
  130.   end
  131.   object plcEmail: TFormStorage
  132.     IniFileName = '\Software\JSoft Consulting\NotePads+'
  133.     IniSection = 'Email Addresses'
  134.     UseRegistry = True
  135.     StoredProps.Strings = (
  136.       'mniExplore.Checked'
  137.       'mniStandard.Checked'
  138.       'lstAddress.Sorted'
  139.       'puiSort.Checked'
  140.       'barAddress.Options')
  141.     Left = 108
  142.     Top = 164
  143.   end
  144.   object pumToolBar: TPopupMenu
  145.     Left = 80
  146.     Top = 164
  147.     object mniExplore: TMenuItem
  148.       Caption = 'I&Explorer Style'
  149.       Checked = True
  150.       GroupIndex = 4
  151.       Hint = 'Display too bar with flat buttons'
  152.       RadioItem = True
  153.       OnClick = UpdateMenus
  154.     end
  155.     object mniStandard: TMenuItem
  156.       Tag = 1
  157.       Caption = 'S&tandard Style'
  158.       GroupIndex = 4
  159.       Hint = 'Display tool bar with raised buttons'
  160.       RadioItem = True
  161.       OnClick = UpdateMenus
  162.     end
  163.     object puiBar1: TMenuItem
  164.       Caption = '-'
  165.       GroupIndex = 4
  166.     end
  167.     object puiSort: TMenuItem
  168.       Caption = 'Sort email addresses'
  169.       Enabled = False
  170.       GroupIndex = 4
  171.       Hint = 'Sort email addresses'
  172.       OnClick = SortAddress
  173.     end
  174.   end
  175.   object appEvents: TAppEvents
  176.     OnActiveFormChange = appEventsActiveFormChange
  177.     Left = 136
  178.     Top = 164
  179.   end
  180. end
  181.